From: Oleksandr Gavenko <gavenkoa@gmail.com>
Date: Mon, 5 Sep 2011 09:55:11 +0000 (+0300)
Subject: * lisp/progmodes/grep.el (rgrep): Add "-type d".
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~2384
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=dbaac8b6995e4d087efce6ba4ad3bdb2c5119146;p=emacs.git

* lisp/progmodes/grep.el (rgrep): Add "-type d".
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 344385df473..1530fd73118 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-09-05  Oleksandr Gavenko  <gavenkoa@gmail.com>  (tiny change)
+
+	* progmodes/grep.el (rgrep): Add "-type d" (bug#9414).
+
 2011-09-05  Juri Linkov  <juri@jurta.org>
 
 	* progmodes/grep.el (grep-process-setup): Fix comments (bug#8084).
diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el
index 8cb3c314faf..de46dc19169 100644
--- a/lisp/progmodes/grep.el
+++ b/lisp/progmodes/grep.el
@@ -989,7 +989,8 @@ This command shares argument histories with \\[lgrep] and \\[grep-find]."
 		      dir
 		      (concat
 		       (and grep-find-ignored-directories
-			    (concat (shell-quote-argument "(")
+			    (concat "-type d "
+				    (shell-quote-argument "(")
 				    ;; we should use shell-quote-argument here
 				    " -path "
 				    (mapconcat